home *** CD-ROM | disk | FTP | other *** search
/ 404 Jogos / CLJG.iso / Puzzle / rollon / rollon.dcr / 00005_first load.ls < prev    next >
Encoding:
Text File  |  2004-09-09  |  727 b   |  31 lines
  1. global gameLoaded, gMode, gDest
  2.  
  3. on exitFrame
  4.   loadcount = 0
  5.   membersNeeded = 0
  6.   repeat with i = 1 to 30
  7.     if string(member(i).type) <> "empty" then
  8.       membersNeeded = membersNeeded + 1
  9.       if member(i).mediaReady then
  10.         loadcount = loadcount + 1
  11.       end if
  12.     end if
  13.   end repeat
  14.   loadPercent = integer(loadcount / float(membersNeeded) * 100.0)
  15.   setVariable(sprite(1), "loadPercent", string(loadPercent))
  16.   if (loadPercent >= 100) and not gameLoaded and (sprite(1).frame <> 1) then
  17.     gameLoaded = 1
  18.     if gMode.exe then
  19.       moveFlash("start")
  20.     else
  21.       moveFlash("loaded")
  22.     end if
  23.   end if
  24.   if gDest <> EMPTY then
  25.     _movie.go(gDest)
  26.     gDest = EMPTY
  27.   else
  28.     go(the frame)
  29.   end if
  30. end
  31.